

DEFINE VAR l-tr LIKE tr_trnbr.


FIND FIRST tr_hist NO-LOCK .

l-tr = tr_trnbr .

FOR EACH tr_hist NO-LOCK WHERE tr_trnbr > l-tr :

    IF (tr_trnbr - l-tr > 1) THEN 
        DISP l-tr + 1 tr_trnbr - 1 .

    l-tr = tr_trnbr .
END.
